1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Private sub cmd run_click()

Dim intI As Integer ,intS As integer

intS=0

for intI=1 to 10

intS=intS+intI^2

next intI

print"sum=";intS

end sub

4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .

این بار روی دکمه Exit کلیک کنید و فرمان  End را بنویسید

Private sub cmdExit_Click()

End

End Sub

2-برنامه ای بنویسید که تعدادی عدد صحیح از ورودی بگیرد و تعداد اعداد زوج و فرد را جداگانه چاپ کند (شرط توقف ورود ضفر است)

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Private sub cmd run_click()

Dim intN as Integer,intEven as integer,intOdd as integer

intEven=0

intOdd=0

intN=inputbox("enter an integer number or zero for exit:")

do while intN

if intN mod 2=0 then

intEven=intEven+1

Else

intOdd=intOdd+1

End If

IntN=inputbox("enter an integer number or zero for exit: ")

Loop

Print"number of Even number =";intEven

Print"number of Odd number =";intOdd

End sub

4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .

این بار روی دکمه Exit کلیک کنید و فرمان  End را بنویسید

Private sub cmdExit_Click()

End

End Sub

3-برنامه ای بنویسید که عدد N را بگیرد و حاصل عبارت زیر را چاپ کند.

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Private sub cmd run_click()

Dim intN As long , intf as long,intI As byte

intN=Inputbox("enter an integer number:")

intf=1

for intI=1 to intN

intF=intF*intI

next intI

print intN;"!=";intF

end sub

4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .

این بار روی دکمه Exit کلیک کنید و فرمان  End را بنویسید

Private sub cmdExit_Click()

End

End Sub

4-برنامه ای بنویسید که عددی را از ورودی دریافت کندو تعیین کند که آیا عدد اول است یا خیر؟

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Private sub cmd run_click()

Dim intN As integer,intI As Integer,blnF as Boolean

intN=Inputbox("enter an integer number :")

blnF=false

For intI=2 to intN-1

If intN mod intI =0 then

blnF=true

Exit For

End if

Next intI

If blnF=False Then

Msgbox"add aval ast",,"prime"

Else

Msgbox"add aval nist",,"prime"

End if

End sub

4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .

این بار روی دکمه Exit کلیک کنید و فرمان  End را بنویسید

Private sub cmdExit_Click()

End

End Sub

5-برنامه ای بنویسید که اعداد اول 1 تا 100 را چاپ کند.

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Private sub cmd run_click()

Dim intN as Integer , IntI As Integer,intF As Boolean

Cls

For intN = 2 to 100

intF = Fals

for intI = 2 to intN-1

if intN mod intI =0 Then

intF = true

exit for

End if

Next intI

If intF = False Then

Print intN;

End If

Next intN

End Sub

 4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .

این بار روی دکمه Exit کلیک کنید و فرمان  End را بنویسید

Private sub cmdExit_Click()

End

End Sub

6-برنامه ای بنویسید که عددی صحیح از ورودی دریافت کند و مجموع ارقام آن را چاپ کند

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Private sub cmd run_click()

Dim intN as integer, intS As Integer

Dim intR As byte

intS=0

intN=Inputbox("Enter an integer number :")

Do While intN <> 0

intR = intn mod 10

intS = intS + intR

intN = intN 10

Loop

Print "sum of Digit is :"; intS

End sub

4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .

این بار روی دکمه Exit کلیک کنید و فرمان  End را بنویسید

Private sub cmdExit_Click()

End

End Sub

7-برنامه ای بنویسید که عددی صحیح از ورودی دریافت کند و مقلوب آن را چاپ کند .

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Private sub cmd run_click()

Dim intN As Integer , intS As Integer

Dim intr As Byte , intReverse As Integer

IntN = Inputbox("Enter an integer number :")

intReverse=0

Do While intN<>0

intR=intN mod 10

intReverse = intReverse *10+intR

intN=intN10

Loop

Print "reverse is :";intReverse

End sub

4:در پنجره ی پرژوه روی دکمه View Object کلیک کنید تا فرم مجدد نمایش یابد .

این بار روی دکمه Exit کلیک کنید و فرمان  End را بنویسید

Private sub cmdExit_Click()

End

End Sub

8-برنامه ای بنویسید که تمام اعداد صحیح سه رقمی که رقم یکان آنها با صدگان برابر است را چاپ کند

1:در پنجره مشخصه ها ،مشخصه name  و captionرا به دلخواه تنظیم کنید.

2:از جعبه ابزار دو command button را به فرم اضافه کرده و مشخصه  name آن ها را به ترتیب  cmd Exit و Cmd Run قرار داده و مشخصه  captioe آنها را نیز به ترتیب Exit  وRun قرار دهید .

3- حال لازم است کد برنامه را اضافه کنیم برای این کار روی دکمه Rum دابل کلیک کرده و در صفحه ای که ظاهر شده دستورهای زیر را بنویسید:

Private sub cmd run_click()

Dim intI As byte, intJ As byte

Dim intN As Integer

For intI = 1 to 9

For intJ = 0 to 9

intN=intI*100+intJ*10+intI

Print intN;

Next intJ

Print

Next intI

End sub